---

Tobak og alkohol

---

Alkohol

Tabel 1: Tilførsel af alkohol efter enhed, type, kategori og tid

url <- paste0("https://bank.stat.gl:443/api/v1/", language, "/Greenland/AL/AL10/ALXALK1.px")

ALXALK1_raw <- 
  url %>% 
  statgl_fetch(
    unit     = 1,
    category = 1,
    type     = px_all(),
    time     = px_top(),
    .col_code = TRUE
  ) %>% 
  as_tibble()


ALXALK1 <- 
  ALXALK1_raw %>% 
  unite(combi, unit, time, sep = ", ") %>% 
  mutate(type = type %>% fct_reorder(value, .fun = "sum", .desc = TRUE)) %>% 
  arrange(type) %>% 
  spread(category, value)

ALXALK1 %>% 
  select(-combi) %>% 
  rename(" " = 1) %>% 
  statgl_table() %>% 
  pack_rows(index = ALXALK1[["combi"]] %>% table()) %>% 
  row_spec(1, bold = TRUE)

	Liter pr. person over 14 år
Spiritusopgørelse, 2023
Samlet	8,50
Øl	6,26
Vin	1,43
Spiritus	0,81

Se Statistikbankens tabel: ALXALK1

Tabel 2: Antal genstande om ugen efter tid, enhed og art

url <- paste0("https://bank.stat.gl:443/api/v1/", language, "/Greenland/AL/AL10/ALXALK4.px")

ALXALK4_raw <- 
  url %>%
  statgl_fetch(
    unit      = 0,
    time      = px_top(),
    subgroup  = px_all(),
    .col_code = TRUE
  ) %>% 
  as_tibble()

ALXALK4 <- 
  ALXALK4_raw %>% 
  mutate(subgroup = subgroup %>% fct_reorder(value, .fun = "sum", .desc = TRUE)) %>% 
  arrange(subgroup) %>% 
  spread(unit, value)
        
ALXALK4 %>% 
  select(-time) %>% 
  rename(" " = 1) %>% 
  statgl_table() %>% 
  pack_rows(index = ALXALK4[["time"]] %>% table()) %>% 
  row_spec(1, bold = TRUE)

	Antal genstande om ugen pr. person over 14 år
2023
Genstande i alt	10,89
Pilsner (4,10-5,09 %)	7,29
Bordvin (9,10-15,09 %)	1,75
Spiritus (35,10-100,00 %)	0,85
Luksusøl (5,10-9,09 %)	0,37
Letøl (1,21-4,09 %)	0,36
Hedvin (15,10-35,09 %)	0,26

Se Statistikbankens tabel: ALXALK4

Tobak

Tabel 3: Indførselsvægt af tobak i gram efter enhed, tid og type

url <- paste0("https://bank.stat.gl:443/api/v1/", language, "/Greenland/AL/AL40/ALXTOB3.px")

ALXTOB3_raw <- 
  url %>% 
  statgl_fetch(
    unit      = 1,
    time      = px_top(),
    type      = px_all(),
    .col_code = TRUE
  ) %>% 
  as_tibble()

ALXTOB3 <- 
  ALXTOB3_raw %>% 
  mutate(type = type %>% fct_reorder(value, .fun = "sum", .desc = TRUE)) %>% 
  arrange(type) %>% 
  spread(unit, value)

ALXTOB3 %>% 
  select(-time) %>% 
  rename(" " = 1) %>% 
  statgl_table() %>% 
  pack_rows(index = ALXTOB3_raw[["time"]] %>% table()) %>% 
  row_spec(1, bold = TRUE)

	Gram pr. person over 14 år
2023
Vægt i alt	1.817,54
Cigaretter	1.169,09
Grovskåren tobak	488,88
Finskåren tobak	138,62
Cerutter mv. under 3 gram	11,50
Snus/Skrå m.m.	9,03
Cigarer over 3 gram	0,43

Se Statistikbankens tabel: ALXTOB3

---

Sidst opdateret: 17. april 2024